home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2.adf / Files / SetUp / 02 / 07.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-01-23  |  2.1 KB  |  99 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num
  12. options results
  13. address "IMAGEFX.1"
  14.  
  15.  
  16.  
  17.     Gadget.1 = 'D/196/22/130/Handle Type For Image A /4/Lower Left/Lower Right/Upper Left/Upper Right/'
  18.     ComplexRequest  '"Select Movement Of Image A!"' 1 Gadget 350 60
  19.     if rc ~= 0 then do
  20.         Type1 = 0
  21.         end
  22.     else do
  23.         Type1 = RESULT.1
  24.     end
  25.  
  26.  
  27.     Gadget.1 = 'Select Color Or Image To Fade From!'
  28.     Gadget.2 = 'COLOR'
  29.     Gadget.3 = 'IMAGE'
  30.     ListRequest 3 Gadget
  31.     Type = 0
  32.     if result = 2 then Type = 0
  33.     if result = 3 then Type = 1
  34.  
  35.     if Type = 1 then do
  36.         ReDraw On
  37.         LoadBuffer "VFXIFX:Images/Pics/Seamless.Pic" Force
  38.         RequestNotify "Look At Examples For FileName Then Click OK"
  39.  
  40.         RequestFile '"Select File To Use For BackGround!" "VFXIFX:Images/Seamless" ""'
  41.         PicName = result
  42.         ColorPic = 1
  43.         Color = 1
  44.         Scroll = 0
  45.         XOff = 0
  46.         YOff = 0
  47.  
  48.         Gadget.1 = 'Do You Wish To Scroll Image?'
  49.         Gadget.2 = 'Scroll Image'
  50.         Gadget.3 = 'Do NOT Scroll'
  51.         ListRequest 3 Gadget
  52.         if result = 2 then Scroll = 1
  53.         if result = 3 then Scroll = 0
  54.         if Scroll = 1 then do
  55.  
  56.             text1 = '"Move X"'
  57.             text2 = '"Move Y"'
  58.             Gadget.1  = 'SLIDER LE=60 TE=4 WD=150 HT=14 LB='text1' IN=1 LO=-10 HI=10 LV=%-3ld'
  59.             Gadget.2  = 'SLIDER LE=60 TE=22 WD=150 HT=14 LB='text2' IN=1 LO=-10 HI=10 LV=%-3ld'
  60.             Gadget.3 = 'END'
  61.             NewComplexRequest  '"Select X & Y Movements!"' Gadget 250 42
  62.             if rc ~= 0 then do
  63.                 XOff = 0
  64.                 YOff = 0
  65.                 end
  66.             else do
  67.                 XOff = RESULT.1
  68.                 YOff = RESULT.2
  69.                 end
  70.             end
  71.  
  72.         end
  73.     else do
  74.  
  75.         ActiveColor 0
  76.         RequestNotify "Click On Color To Use As BackGround Then Click OK"
  77.         ActiveColor
  78.         Color = result
  79.         ColorPic = 0
  80.         PicName = ""
  81.         Scroll = 0
  82.         XOff = 0
  83.         YOff = 0
  84.         ActiveColor 1
  85.         end
  86.  
  87.  
  88.  
  89.  
  90. call open TempFile,"VFXIFX:TempDrawer/"strip(Num),W
  91. call writeln TempFile,Color
  92. call writeln TempFile,ColorPic
  93. call writeln TempFile,PicName
  94. call writeln TempFile,Scroll
  95. call writeln TempFile,XOff
  96. call writeln TempFile,YOff
  97. call writeln TempFile,Type1
  98. call close TempFile
  99.